home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / fish / 726-750 / 749 / zipwd / zipwd.c < prev    next >
C/C++ Source or Header  |  1995-03-18  |  2KB  |  65 lines
  1. /* $Revision Header built by KCommodity by Kai Iske *** (do not edit) ************
  2. **
  3. ** © Copyright by H.P.G
  4. **
  5. ** File             : Aztec:Source/ZipWd/ZipWd.c
  6. ** Created on       : Sunday, 02-Aug-92 15:47:24
  7. ** Created by       : Hans-Peter Guenther
  8. ** Current revision : V0.01
  9. **
  10. **
  11. ** Purpose
  12. ** -------
  13. **     ZipWd is a simple cli tool that zips the current active window.
  14. **     Just a little OS 2.0 example.
  15. **
  16. ** Revision V0.41
  17. ** --------------
  18. **     --- Initial release ---
  19. **
  20. *********************************************************************************/
  21. #define REVISION "0.41"        /* This is the revision number */
  22. #define REVDATE  "02-Aug-92"        /* This is the revision date */
  23.  
  24. char *VERSION="$VER: ZipWd 0.50 (3.8.92) by H.P.G PublicDomain";
  25.  
  26. /* this version string can be read by the Version program */
  27.  
  28. /* Options for MANX Aztec 5.xx  */
  29. /* COMPILE: cc ZipWd.c          */
  30. /* LINK:    ln ZipWd.o -lc      */
  31.  
  32. #include <exec/types.h>
  33. #include <intuition/intuition.h>
  34. #include <intuition/intuitionbase.h>
  35. #include <functions.h>
  36.  
  37. #define IB IntuitionBase
  38. #define PUTS(a) Write(Output(),a,strlen(a))
  39.  
  40. static char *ErrorTxt = "You need at minimum OS 2.xx WBench Version 37.xx\n";
  41.  
  42. struct IB *IB;
  43.  
  44. void _main(void)
  45. {
  46. struct Window *Wd;
  47. ULONG ilock;
  48.  
  49. if (!(IB=(struct IB *)OpenLibrary("intuition.library",36L)))
  50.     {
  51.     PUTS(ErrorTxt);  /* Checks for the correct version  */
  52.     Exit(20);        /* if fail , OS 1.3 or 1.2 */
  53.     }
  54.  
  55. ilock=LockIBase( 0L );
  56. /* disables changes of the intuition structures before reading */
  57.  
  58. if (Wd=IB->ActiveWindow)    /* get the active window */
  59.     ZipWindow(Wd);
  60.  
  61. UnlockIBase(ilock);
  62. CloseLibrary((struct Library *)IB);
  63. Exit(0);
  64. }
  65.